for i:=1 to 100 step 2 do
for i := 1 to 100 do if (i mod 2=0) then begin //Do what you want to do every 2 steps end;