Auguste Dorothea, Braunschweig-Lüneburg, Herzogin