For 문에서 그런 방법이 있었던 것 같은데 잘 모르겠구요
이 방법은 어떤지 모르겠네요..

만약 2씩 증가면

  For i := 1 to 100 do
      if  (i mod 2) = 1 then
          begin
            ..
            ..
          end;

  2 대신 n 을 적용해도 되구요..

그럼 이만.
(참 mod 는 나머지값입니다)