Does the original contain the links too?

The code needs to be added before you choose to do any .Copy since once you do this the new workbook becomes the ActiveWorkbook and the ThisWorkbook still refers to the original.

Alternatively if you've already done the .Copy and the copied workbook is active use instead

ActiveWorkbook.BreakLink Name:=arLinks(x), Type:=xlLinkTypeExcelLinks