I would use:

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
 
   If ws.Name <> "Tested Party" Then
      Range("G8").Select
      ActiveCell.FormulaR1C1 = "2014"
   End If

Next ws
that way no need to use the GoTo instruction