How to Stop a Do While Loop at a certain row??

I need to stop my Do While loop at cell 52. Cell 53 has information that I don't want to include. My starting row is 8. I need the loop to 'do while" column A equals anything other than blank "" from row 8 through row 52, but after 52 I need it to move to my next worksheet. Here is a sample of my code:

row = 8 'starting row for worksheet-1
            Do While ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 1).Value <> ""
                    With ThisWorkbook.Sheets("TAGSTEMPLATE")
                            .Range("TAGN" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 2).Value
                            .Range("EQPN" & PAGETAGNUM).Value = equipment
                            .Range("DATE" & PAGETAGNUM).Value = printdate
                            .Range("ISOT" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 1).Value
                            .Range("TASK" & PAGETAGNUM).Value = task
                            .Range("ISOL" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 5).Value
                            .Range("VALP" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-1").Cells(row, 8).Value
                    End With
                    PAGETAGNUM = PAGETAGNUM + 1
                    If PAGETAGNUM > 6 Then
                        Call printandclear
                        PAGETAGNUM = 1
                    End If
                row = row + 1
            Loop
            
        row = 8 'starting row for worksheet-2
            Do While ActiveWorkbook.Sheets("WorkSheet-2").Cells(row, 1).Value <> ""
                    With ThisWorkbook.Sheets("TAGSTEMPLATE")
                            .Range("TAGN" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-2").Cells(row, 2).Value
                            .Range("EQPN" & PAGETAGNUM).Value = equipment
                            .Range("DATE" & PAGETAGNUM).Value = printdate
                            .Range("ISOT" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-2").Cells(row, 1).Value
                            .Range("TASK" & PAGETAGNUM).Value = task
                            .Range("ISOL" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-2").Cells(row, 5).Value
                            .Range("VALP" & PAGETAGNUM).Value = ActiveWorkbook.Sheets("WorkSheet-2").Cells(row, 8).Value
                    End With
                    PAGETAGNUM = PAGETAGNUM + 1
                    If PAGETAGNUM > 6 Then
                        Call printandclear
                        PAGETAGNUM = 1
                    End If
                row = row + 1
            Loop