A Perth teenager is in critical condition after diving into a sand bank off a beach and breaking his neck.