VBAでワークシート関数を使う（CountA）

A～H列が全て空白の行を見つける処理。

iRow = 2
Do While Application.WorksheetFunction.CountA(Range("A" & iRow & ":H" & iRow)) > 0
    '何か処理を入れる
    iRow = iRow + 1
Loop

ワークシート関数CountAは空白ではないセルの個数を返す。

以上。