SPSS Do Repeat with Ifs

DO REPEAT R=Q8_1 to Q8_8.
IF  (any(R,101,102,103,104,802)) Q8_NET_EFFICACY=901.
IF (ANY(R,105,803)) Q8_NET_EFFECTS_SKIN=902.
IF (ANY(R,106,107,108,109,110,111,112,113,114,115,116,117,143,144,804)) Q8_NET_POUCH=903.
IF (ANY(R,118,119,120,121,122,145,805)) Q8_NET_CAP=904.
IF (ANY(R,123,124,125,126,806)) Q8_NET_DISPENSING=905.
IF (ANY(R,127,807)) Q8_NET_HANDLING=906.
IF (ANY(R,128,129,130,131,808)) Q8_NET_AMOUNT=907.
IF (ANY(R,132,133,134,809)) Q8_NET_TEXTURE=908.
IF (ANY(R,135,136,137,138,810)) Q8_NET_SCENT=909.
END REPEAT.
EXECUTE.