「奇数行目の数値から8を引き、8以上なら偶数行目に代入」を繰り返したい

Question

前提・実現したいこと

LibreOfficeでのCalcマクロについて
「奇数行目の数値から8を引き、8以上なら偶数行目に代入」を
奇数行目スタート3行目から偶数行目エンド40行目まで行いたい

発生している問題・エラーメッセージ

3行目の数値から8を引き、8以上なら4行目に代入している式です

これを偶数行すべてに行いたいので教えてください

数値の有る行は3から39、代入先は4から40行目です

該当のソースコード

LibreOfficeマクロ

REM ***** BASIC *****
sub minus
'8時間引く

Dim f As Single
for f = 1 to 31

x = ThisComponent.Sheets(0).getCellByPosition(f, 2).Value

If x > 8 Then
b = x - 8
ElseIf x < 8 then
b = 0
Else
b = 0
EndIf

ThisComponent.Sheets(0).getCellByPosition(f,3).Value=b

next f

End Sub

試したこと

知恵袋では
for f = 2 to 38 step 2
ThisComponent.Sheets(0).getCellByPosition(f + 1,3).Value=b
ではどうかと回答が有りますが、右方向にステップするので…

補足情報（FW/ツールのバージョンなど）

LibreOfficeバージョン: 6.2.7.1 (x64)
Calc: threaded

Answer 1

REM ***** BASIC *****
sub minus
'8時間引く

Dim f As Single
Dim g As Single

for f = 1 to 31
for g = 2 to 40 step 2

x = ThisComponent.Sheets(0).getCellByPosition(f, g).Value

If x > 8 Then
b = x - 8
ElseIf x < 8 then
b = 0
Else
b = 0
EndIf

ThisComponent.Sheets(0).getCellByPosition(f,g+1).Value=b

next g
next f

End Sub