If Statement in VBA

Hello:

I am trying to use the code below to by pass and go to next count in PaystubCtr loop if value in Cell D3=0
But I am getting error.
Please help resolve this problem.
Thank you

Riz Momin

For PaystubCtr = Cells(3, "P") To Cells(4, "P")
        Cells(1, "I") = PaystubCtr
        If D3 = 0 Then 
        Next PaystubCtr
        Else
        
        FPath = "C:\My Documents\Dropbox\Files\Test Payroll\"
        FName = Sheets("PDF Checks").Range("o5") ' Build the filename in O5 cell on Receipt sheet.
        
            Range("A1:D30").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            FPath & FName, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
            False
    Next PaystubCtr