Try this...
Code:
I var byte ' Loop count
D var word ' Data
A var word ' Address

A=$04F0
d=$1234

For I = 0 TO 6 STEP 2
    Writecode A + I, D
Next I

stop
end